;; Minimal test for define function
(display "Testing define function\n")
(define (increment x) (+ x 1))
(display "(increment 5) = ")
(display (increment 5))
(display "\n")